Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/pgm_ctrl/cuactrls/clamp.frm

Text File | 1995-05-22 | 4KB | 161 lines

VERSION 2.00
Begin Form frmLamp
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Lamp Demo"
   ClientHeight    =   1500
   ClientLeft      =   1695
   ClientTop       =   3405
   ClientWidth     =   4950
   Height          =   1905
   Left            =   1635
   LinkTopic       =   "Form1"
   ScaleHeight     =   1500
   ScaleWidth      =   4950
   Top             =   3060
   Width           =   5070
   Begin CUALamp lmp6
      Height          =   120
      Left            =   4395
      Style           =   0  'Micro
      TabIndex        =   11
      Top             =   1140
      Value           =   2  'Yellow
      Width           =   120
   End
   Begin CUALamp lmp5
      Height          =   120
      Left            =   1230
      Style           =   0  'Micro
      TabIndex        =   10
      Top             =   150
      Width           =   120
   End
   Begin CUALamp lmp4
      Height          =   120
      Left            =   2970
      Style           =   0  'Micro
      TabIndex        =   9
      Top             =   165
      Value           =   1  'Green
      Width           =   120
   End
   Begin CUALamp lmp3
      Height          =   120
      Left            =   1395
      Style           =   0  'Micro
      TabIndex        =   8
      Top             =   1245
      Value           =   3  'Red
      Width           =   120
   End
   Begin CUALamp lmp2
      Height          =   480
      Left            =   1305
      Style           =   2  'Medium
      TabIndex        =   7
      Top             =   525
      Value           =   1  'Green
      Width           =   390
   End
   Begin CUACommand cmdWait
      Caption         =   "Show me!"
      Height          =   345
      Left            =   3525
      StandardButton  =   25  'Look
      TabIndex        =   1
      Top             =   495
      Width           =   1260
   End
   Begin CUACommand cmdOK
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   345
      Left            =   3525
      StandardButton  =   1  'OK
      TabIndex        =   0
      Top             =   90
      Width           =   1260
   End
   Begin Timer Timer1
      Interval        =   1500
      Left            =   3630
      Top             =   960
   End
   Begin CUALamp lmps
      Height          =   195
      Index           =   1
      Left            =   2640
      TabIndex        =   2
      Top             =   660
      Value           =   3  'Red
      Width           =   195
   End
   Begin CUALamp lmps
      Height          =   195
      Index           =   0
      Left            =   2070
      TabIndex        =   3
      Top             =   210
      Value           =   2  'Yellow
      Width           =   195
   End
   Begin CUALamp lmps
      Height          =   195
      Index           =   2
      Left            =   2100
      TabIndex        =   4
      Top             =   1110
      Value           =   1  'Green
      Width           =   195
   End
   Begin CUALamp lmps
      Height          =   195
      Index           =   3
      Left            =   2910
      TabIndex        =   5
      Top             =   1170
      Width           =   195
   End
   Begin CUALamp lmp1
      Height          =   930
      Left            =   210
      Style           =   3  'Large
      TabIndex        =   6
      Top             =   270
      Value           =   1  'Green
      Width           =   720
   End
End
Option Explicit

Dim Delta%

Sub cmdOK_Click ()
   Unload Me
End Sub

Sub cmdWait_Click ()
   If lmp1 = 1 Then
      Delta = 1
   Else
      Delta = -1
   End If
End Sub

Sub Form_Load ()
   lmp1 = LAMP_RED
   lmp2 = LAMP_RED
   Delta = 1
End Sub

Sub Timer1_Timer ()
   Dim i As Integer

   i = lmp1 + Delta
   If i >= LAMP_GREEN And i <= LAMP_RED Then
      lmp1 = i
      lmp2 = i
   End If
End Sub